description = [[
Sends a special broadcast probe to discover PC-Anywhere hosts running on a LAN
]]

---
-- @usage
-- nmap --script broadcast-pc-anywhere
--
-- @output
-- Pre-scan script results:
-- | broadcast-pc-anywhere: 
-- |_  10.0.200.113 - WIN2K3SRV-1
--

author = "Patrik Karlsson"
license = "Same as Nmap--See http://nmap.org/book/man-legal.html"
categories = { "broadcast", "safe" }

local TIMEOUT = tonumber(stdnse.get_script_args("broadcast-pc-anywhere.timeout"))

prerule = function() return ( nmap.address_family() == "inet") end

action = function()


	local host = { ip = "255.255.255.255" }
	local port = { number = 5632, protocol = "udp" }
	
	local socket = nmap.new_socket("udp")
	socket:set_timeout(500)

	for i=1,2 do
		local status = socket:sendto(host, port, "NQ")
		if ( not(status) ) then
			return "\n  ERROR: Failed to send broadcast request"
		end
	end
		
	local timeout = TIMEOUT or ( 20 / ( nmap.timing_level() + 1 ) )
	local responses = {}
	local stime = os.time()
	
	repeat
		local status, data = socket:receive()
		if ( status ) then
			local srvname = data:match("^NR([^_]*)_*AHM_3___\0$")
			if ( srvname ) then
				local status, _, _, rhost, _ = socket:get_info()
				if ( not(status) ) then
					socket:close()
					return false, "Failed to get socket information"
				end
				-- avoid duplicates
				responses[rhost] = srvname
			end
		end
	until( os.time() - stime > timeout )
	socket:close()
	
	local result = {}
	for ip, name in pairs(responses) do
		table.insert(result, ("%s - %s"):format(ip,name))
	end
	return stdnse.format_output(true, result)
end
